home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / business / cntws11a.zip / STMASTER.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1997-05-19  |  10KB  |  75 lines
  1. STMASTER
  2. reference = "REFERENCE"
  3. dateword = "DATE"
  4. do prtbtch with "[ Summary Completed Jobs Schedule ]","comp_sm"
  5. *report form wip_sum &&to print noeject
  6. use in jchist
  7. use in tempstck
  8. erase "tempstck.dbf"
  9. erase "tempstck.mdx"
  10. set safety &saf.
  11. use in compjobs
  12. *    rele compsm
  13. RETURN
  14. PROCEDURE matrl     && DBMITEM1.ONCLICK
  15. *-----------------------------------------------------------------
  16. * NAME
  17. *   ONCLICK - Event handler for DBMITEM1
  18. *------------
  19. LOCATION
  20. SUPPLIER
  21. DESCRIPTIO
  22. STOCK_CODE
  23. ---------------------------
  24. * NAME
  25. *   ONCLICK - Event handler for DBMITEM2
  26. *-----------------------------------------------------------------
  27.     do labour
  28. RETURN
  29. PROCEDURE clsjob     && DBMITEM4.ONCLICK
  30. *-----------------------------------------------------------------
  31. * NAME
  32. *   ONCLICK - Event handler for DBMITEM4
  33. *-----------------------------------------------------------------
  34.     do closejob
  35. RETURN
  36. PROCEDURE exit     && DBMITEM6.ONCLICK
  37. *-----------------------------------------------------------------
  38. * NAME
  39. *   ONCLICK - Event handler for DBMITEM6
  40. *-----------------------------------------------------------------
  41.     lvoid = costing.release()
  42. RETURN
  43. PROCEDURE formclose     && COSTING.ONCLOSE
  44. *-----------------------------------------------------------------
  45. * NAME
  46. *   ONCLOSE - Event handler for COSTING
  47. *-----------------------------------------------------------------
  48.     lvoid = costing.release()
  49. RETURN
  50. ---------------------------------------
  51. saf = set('safety')
  52. set safety off
  53. use compjobs in sele()
  54. sele compjobs
  55. set order to job_code
  56. if reccount() = 0
  57.     append blank
  58. endif
  59. rele compcount
  60. declare compcount[reccount(),1]
  61. copy to array compcount field job_code
  62. sele creditor
  63. set order to sub_code
  64. sele stmaster
  65. set order to stock_code
  66. copy with production to tempstck field stock_code,descript
  67. LOCATION
  68. LOCATION
  69. SUPPLIER
  70. SUPPLIER
  71. DESCRIPTIO
  72. DESCRIPTIO
  73. STOCK_CODE
  74. STOCK_CODE
  75.